home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / EYES HAVE IT.bas < prev    next >
BASIC Source File  |  2003-06-12  |  747b  |  21 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM   PROGRAM LENGTH=500 
  3. 120  REM <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  4. 130  REM 
  5. 140  REM  PAUL RAYMER'S
  6. 150  REM  MYTHOLOGY
  7. 160  REM  TABLEAUX
  8. 170  REM 
  9. 180  REM  THE EYES HAVE IT
  10. 190  REM  (C)1982 PEC
  11. 200  REM  
  12. 210  FOR X = 1 TO 10:I$ = I$ +"I": NEXT X
  13. 220  VTAB 3: HTAB 8: PRINT "CYCLOPS"
  14. 230  VTAB 3: HTAB 29: PRINT "ARGUS"
  15. 240  VTAB 5: HTAB 1: FOR X = 1 TO 40: PRINT "=";: NEXT X: PRINT 
  16. 250  FOR X = 5 TO 22: VTAB X: HTAB 21: PRINT "=": NEXT X
  17. 260  VTAB 11: HTAB 10: PRINT "I";
  18. 270  FOR X = 11 TO 20
  19. 280  VTAB X: HTAB 26: PRINT I$;
  20. 290  NEXT X
  21. 300  FOR X = 1 TO 5000: NEXT : PRINT  CHR$(13); CHR$(4);"RUN MYTHMENU"